CyberMycha Extra 2004 January/CyberMycha Extra 1-2004 (Poland) (Disc 2).bin/Pippi/gmsb.dir/Internal_3_blowJob.ls

Text File | 2001-09-12 | 1.3 KB | 86 lines

property meSprite, gumSprite, ChewMember, BlowMember, activity, mLoc, outSwitch

on beginSprite me
  outSwitch = 0
  meSprite = sprite(me.spriteNum)
  gumSprite = sprite(me.spriteNum + 4)
  ChewMember = member("chew", 1)
  BlowMember = member("blow", 1)
  activity = 0
  mLoc = meSprite.loc
end

on exitFrame me
  if gumSprite.frame > 1 then
    if activity = 0 then
      if soundBusy(1) = 0 then
        if outSwitch = 0 then
          sound(1).play(member("out"))
          outSwitch = 1
        end if
      end if
      gumSprite.frame = gumSprite.frame - 1
    end if
  end if
end

on mouseDown me
  outSwitch = 0
  mDown(me)
  stopEvent()
end

on mouseUp me
  mUp(me)
  stopEvent()
end

on mouseUpOutSide me
  mUp(me)
  stopEvent()
end

on mDown me
  sound(1).play(member("blowSnd"))
  activity = 1
  setActivity(me)
end

on mUp me
  sound(1).stop()
  activity = 0
  setActivity(me)
end

on setActivity me
  case activity of
    0:
      meSprite.member = ChewMember
      gumSprite.stop()
    1:
      meSprite.member = BlowMember
      gumSprite.play()
  end case
  updateStage()
end

on moveIn me
  meSprite.loc = mLoc
end

on moveOut me
  meSprite.loc = point(0, 1000)
end

on mouseEnter me
  cursor([500, 501])
end

on mouseLeave me
  cursor(0)
end

on endSprite me
  cursor(0)
end